home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / ASCII.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  228b  |  11 lines
  1. ' ASCII.BAS
  2. ' This program displays the ASCII and IBM extended character sets.
  3.  
  4. CLS
  5.  
  6. FOR i% = 33 TO 255
  7.     PRINT "Code"; i%; "= "; CHR$(i%)
  8.     IF (i% MOD 23 = 0) THEN INPUT "Press Enter for more...", dummy$
  9. NEXT i%
  10.  
  11.